home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #45 (1990-06-20)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #45 (1990-06-20)(Amiga User Gruppe Einzugsgebiet 4000).adf / ANWENDUNGEN / Ncomm / Mbbs.script < prev    next >
Text File  |  1990-06-08  |  799b  |  37 lines
  1. ;
  2. ; Script for grabbing new messages from MBBS systems
  3. ; Must be executed from phonebook, or 'DIAL' command
  4. ; line must be inserted as well as password.
  5. ;
  6.         ;Insert your name here
  7.         set $name = "firstname lastname"
  8.  
  9.     when "--more--" send " "
  10.  
  11.     converse "" "^K"
  12.     converse "FIRST name"  $name"\n"
  13.     converse "(dots will echo):"  "\p\n^K"
  14.  
  15.     ;Change character set to ISO
  16.     converse "Main Command"  "U S\n"
  17.     converse "IBN"  "\b\b\bISO\n"
  18.  
  19.     ;Get the messages...
  20.     converse "Utility Command"  "GRAB\n"
  21.  
  22.     ;Restore character set
  23.     converse "Command" "U S\n"
  24.     converse "ISO" "\b\b\bIBN\n"
  25.  
  26.     ;Scan for new files
  27.     converse "Command" "F N\n"
  28.     converse ":" "\n"
  29.     capture "RAM:files" ;Save in file
  30.     wait     "Command"
  31.     capture off
  32.  
  33.     ;Log off!
  34.     send "G Y\n"
  35.     wait "NO CARRIER"
  36.     message "\nEnd of script.\n"
  37.